home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aao.d64 / fastboot (.txt) < prev    next >
Commodore BASIC  |  2009-01-24  |  2KB  |  54 lines
  1. 1 REM OPEN15,8,15,"S0:FASTBOOT":CLOSE15:SAVE "0:FASTBOOT",8
  2. 10 PRINT "[147]"; : REM CLEAR SCREEN
  3. 20 POKE 53281,0: REM BACKGROUND BLACK
  4. 25 POKE 53280,0: REM BORDER     BLACK
  5. 27 PRINT "";   : REM PENCOLOR GREEN
  6. 30 IF A=1 THEN 90
  7. 35 OPEN 15,8,15,"U;"
  8. 40 INPUT#15,D1,A$,D2,D3
  9. 41 IF A$="OK" THEN PRINT#15,"U:":INPUT#15,D1,A$,D2,D3
  10. 43 IF "1571"=MID$(A$,14,4)THENPRINT#15,"U0>M0":CLOSE15:GOTO70
  11. 50 CLOSE15
  12. 60 IF "1541"<>MID$(A$,14,4) THEN 100
  13. 70 PRINT"[147]LOADING ML.SIZZLE
  14. 80 [139] A[178]0 [167] A[178]1:[147]"0:ML.SIZZLE",8,1
  15. 90 [158] 49152:[156]
  16. 100 [153] "LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";
  17. 110 [153] " COMAL 0.14 IS BEING LOADED NOW...      ";
  18. 120 [153]
  19. 130 [153] "PRINT   THIS BOOT PROGRAM IS FAST LOADING
  20. 145 PRINT "   COMAL. IT IS INTENDED FOR 1541/1571"
  21. 150 PRINT "   DISK DRIVES ONLY. IF YOU HAVE
  22. 151 [153] "   PROBLEMS PLEASE BOOT AGAIN WITH:
  23. 152 PRINT
  24. 153 PRINT "LOAD "CHR$(34)"BOOTSLOW"CHR$(34)",8"
  25. 154 PRINT "RUN
  26. 155 [153]
  27. 156 [153] "ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
  28. 160 [153] "(null)      DEFFOR MORE INFO SEND SASE TO      (null)";
  29. 165 [153] "-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
  30. 170 [153] "(null)  SYSCOMAL USERS GROUP, U.S.A., LIMITED  (null)";
  31. 180 [153] "(null)         SYS6041 MONONA DRIVE            (null)";
  32. 185 [153] "(null)         SYSMADISON, WI 53716            (null)";
  33. 186 [153] "(null)           SYS608-222-4432               (null)";
  34. 190 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";
  35. 210 [153]
  36. 230 [153] "  COMAL PROGRAMS CAN ONLY BE EXECUTED"
  37. 240 [153] "  AFTER THE LANGUAGE HAS BEEN LOADED."
  38. 275 [153] "TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";
  39. 280 [153] "   BACKUP THIS DISK BEFORE YOU USE IT   WAIT";
  40. 899 [143]
  41. 900 [143]
  42. 910 [143] CHAIN"HI + <RETURN KEY>
  43. 920 POKE 198,9
  44. 930 POKE 631,ASC("C")
  45. 940 POKE 632,ASC("H")
  46. 950 POKE 633,ASC("A")
  47. 960 POKE 634,ASC("I")
  48. 970 POKE 635,ASC("N")
  49. 980 POKE 636,34
  50. 990 POKE 637,ASC("H")
  51. 1000 POKE 638,ASC("I")
  52. 1010 POKE 639,13
  53. 1020 LOAD "C64 COMAL 0.14",8
  54.